Sub prueba_LineInput()
    Dim fichero As String
    fichero = "C:\Temp\NotasLineInput.txt"
    Open fichero For Input As #1
    Dim linea As String
    Dim campo1, campo2, campo3 As String
    Do While Not EOF(1)
      Line Input #1, linea
      Debug.Print "Linea (" & linea & ")"
      campo1 = Mid(linea, 1, 3)
      campo2 = Mid(linea, 4, 8)
      campo3 = Mid(linea, 12, 3)
      Debug.Print "  Campo1 : " & campo1 & "  Campo2 : " & campo2 & "  Campo3 : " & campo3
    Loop
    Close #1
End Sub
